home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 181 / 181.d81 / b.amadeus iii (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  124 lines
  1. 8 poke56,56:clr:poke53371,0:poke788,49:tq=ti
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 poke53281,0:poke53280,0:print"[147]":gosub60000
  4. 30 sys57812"amadeus mouse2.1",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  5. 32 sys57812"amadeus font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 34 sys57812"amadeus sid",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  7. 36 sys49615
  8. 38 d%(1)=74
  9. 40 fori=1to8
  10. 42 readf$(i),n$(i)
  11. 44 sys57812f$(i),dv,0:poke780,0:poke781,0:poke782,d%(i):sys65493
  12. 46 d%(i+1)=peek(175)+1:e(i)=peek(174)+256*peek(175)
  13. 48 next
  14. 50 data"k110-12mozar.mus","[211]ymphony [206]o.12 [203].110"
  15. 51 data"k112-13mozar.mus","[211]ymphony [206]o.13 [203].112"
  16. 52 data"k114-14mozar.mus","[211]ymphony [206]o.14 [203].114"
  17. 53 data"k120-mozart.mus","[211]ymphony [203].120"
  18. 54 data"k124-15mozar.mus","[211]ymphony [206]o.15 [203].124"
  19. 55 data"k128-16mozar.mus","[211]ymphony [206]o.16 [203].128"
  20. 56 data"k129-17mozar.mus","[211]ymphony [206]o.17 [203].129"
  21. 57 data"k130-18mozar.mus","[211]ymphony [206]o.18 [203].130"
  22. 64 ml=64*256:mv=ml+156:v=53248
  23. 66 pokemv+1,158
  24. 68 pokev+21,0:sysml:sysml+6,14*64
  25. 70 print"[147]":poke53272,31:sysml+126,0,38,0,24,254,255,14,4
  26. 78 sysml+30,3,36,2,9,255,6
  27. 80 sysml+30,2,35,1,8,160,3+16
  28. 88 print"[153]";
  29. 90 sysml+27,2,"[204][207][193][196][211][212][193][210] [208]roudly [208]resents
  30. 92 [153]"";
  31. 94 [158]ml[170]12,16,3,"(NULL) left$ val"
  32. 100 [158]ml[170]12,5,4,"ortan^ or^or^ ortan^ =tan^ ortan^ ^ or ortan^
  33. 102 sysml+12,5,5,"[171][192][179] [221][173][189][221] [171][192][179] [221] [221] [171][192]  [221] [221] [173][192][174]
  34. 104 [158]ml[170]12,5,6,"exp / exp  / exp / >tanexp /tanexp /tanexp /tanexp"
  35. 110 [158]ml[170]27,7,"(NULL) (NULL) (NULL) (NULL) left$ (NULL) (NULL) right$ val (NULL)
  36. 112 sysml+39,160
  37. 120 sysml+30,3,26,12,23,255,6
  38. 122 sysml+30,2,25,11,22,160,3+16
  39. 130 sysml+30,29,36,12,23,255,6
  40. 132 sysml+30,28,35,11,22,160,3+16
  41. 140 sysml+12,30,12,"[154][208][204][193][217][157][157][157][157][211][207][206][199][157][157][157][157][157][157][159][171][192][192][192][192][192][192][179][154][157][157][157][157][157][157][208][204][193][217][157][157][157][157][193][204][204]"
  42. 142 sysml+12,28,17,"[159][171][192][192][192][192][192][192][179][157][157][157][157][157][157][154][211][207][206][199][157][157][157][157][201][206][198][207][157][157][157][157][157][157][159][171][192][192][192][192][192][192][179][157][157][157][157][157][157][154][209][213][201][212]"
  43. 150 sysml+15,1,29,34,12,13
  44. 152 sysml+15,2,29,34,15,16
  45. 154 sysml+15,3,29,34,18,19
  46. 156 sysml+15,4,29,34,21,21
  47. 160 fori=1to8
  48. 162 sysml+12,4,12+i,n$(i)
  49. 164 sysml+15,4+i,3,24,12+i,12+i
  50. 166 next
  51. 200 sysml+9
  52. 202 rem print"             "rg%;cr%
  53. 204 ifrg%thensysml+36,rg%,255,1:sysml+24,2:sysml+36,rg%,255,14
  54. 210 ifcr%then230
  55. 220 goto200
  56. 230 ifcr%=1thengosub300:goto200 rem play
  57. 240 ifcr%=2thengosub400:goto200:rem play all
  58. 250 ifcr%=3thengosub500:goto200:rem info
  59. 260 ifcr%=4thensysml+3:poke49152,0:sys49935:print"[147]":goto40000:rem quit
  60. 268 g=cr%
  61. 270 sysml+30,2,25,11,22,160,3+16
  62. 272 fori=1to8
  63. 274 sysml+12,4,12+i,n$(i)
  64. 276 next
  65. 280 sysml+36,g,255,14+128
  66. 290 goto200
  67. 300 ifg=0thenreturn
  68. 302 p=1:gosub500:p=0
  69. 310 poke781,0:poke782,d%(g-4)
  70. 320 sys49664:poke49152,7
  71. 330 sysml+9
  72. 332 ifpeek(49152)=0then350
  73. 340 ifl2%=0then330
  74. 350 poke49152,0:sys49897
  75. 352 sysml+42,168
  76. 360 return
  77. 400 forg=5to12
  78. 410 gosub300
  79. 420 next
  80. 430 return
  81. 500 if(g<1)or(g>12)thenreturn
  82. 502 sysml+39,168:sysml+42,160
  83. 510 sysml+30,3,36,13,21,255,6
  84. 520 sysml+30,2,35,12,20,255,3+16
  85. 530 poke214,13:print:printtab(5);
  86. 540 rem   h=e(g-4)
  87. 550 rem   fori=htoh-200step-1
  88. 560 rem   ifpeek(i)=1thens=i:i=h-200
  89. 570 rem   next
  90. 572 s=d%(g-4)*256
  91. 574 t=s+peek(s)+peek(s+1)*256+peek(s+2)+peek(s+3)*256+peek(s+4)+peek(s+5)*256+6
  92. 580 fori=2to200:ifpeek(i+t)=0theni=200:goto590
  93. 582 printchr$(peek(i+t));:ifpeek(i+t)=13thenprint"";
  94. 590 next
  95. 592 ifpthenreturn
  96. 600 sysml+9
  97. 610 ifl2%=0then600
  98. 620 sysml+42,168
  99. 630 return
  100. 999 goto999
  101. 10000 d=peek(186):n$="0:b.amadeus iii":open15,d,15,"s"+n$:close15:saven$,d:end
  102. 40000 poke53269,0
  103. 40002 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  104. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  105. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  106. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  107. 40040 close2:open2,i,2:close2:ifstthen40060
  108. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  109. 40060 next:return
  110. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  111. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  112. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  113. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  114. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  115. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  116. 60030 z$(0)="[212][200][197] [193][205][193][196][197][213][211] [211][217][205][208][200][207][206][201][197][211] [201][201][201]"
  117. 60040 z$(2)="by [196]ave [205]arquis
  118. 60050 z$(4)[178]"(c) 1999 by mid$ & asc (NULL)ublishing, right$nc."
  119. 60060 z$(6)[178]"(NULL)his product is not shareware
  120. 60070 z$(7)="or in the public domain."
  121. 60080 z$(9)="1-800-594-3370 or 1-318-221-8718
  122. 60090 [151]214,12:[153]:[129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  123. 60100 [129]i[178]0[164]6:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  124.